home *** CD-ROM | disk | FTP | other *** search
/ CICA 1994 April / CICA Shareware for Windows CD-ROM (Walnut Creek CD-ROM)(April 1994).ISO / win3 / util / dbankwin.exe / DBANKX.BAT < prev    next >
DOS Batch File  |  1993-12-20  |  3KB  |  91 lines
  1. @echo off
  2. @sendlog DBANK
  3. i:\bin\send Looking for Microsoft Windows program file ...^M^J
  4. i:\bin\send ^M^J
  5. C:
  6. if exist H:\%username%\foundwin.!@# del H:\%username%\foundwin.!@#
  7. if exist win.com goto SetEnDB
  8. for %%i in (%path%) do call i:\dbank\look4win %%i
  9. if exist H:\%username%\foundwin.!@# goto found
  10. if not exist c:\windows\win.com goto tryD
  11. cd\windows
  12. goto SetEnDB
  13. :tryD
  14. if not exist d:\windows\win.com goto tryWinC
  15. D:
  16. cd\windows
  17. goto SetEnDB
  18. :tryWinC
  19. if not exist c:\win\win.com goto tryWinD
  20. cd\win
  21. goto SetEnDB
  22. :tryWinD
  23. if not exist d:\win\win.com goto tryI
  24. D:
  25. cd\win
  26. goto SetEnDB
  27. :tryI
  28. if not exist i:\windows\win.com goto notfound
  29. I:
  30. cd\windows
  31. goto SetEnDB
  32. :notfound
  33. i:\bin\send Dbank can only run under Microsoft Windows which is not found.^M^J
  34. i:\bin\send If you did install Windows, please include its directory name in the^M^J
  35. i:\bin\send `SET mypath=' statement of your \AUTOUSER.BAT.^M^J
  36. i:\bin\send ^M^J
  37. i:\bin\send If you wish to install Windows for use with NUSNET, please access^M^J
  38. i:\bin\send `Applications', `Others ...', then `Information' from the NUSNET Main Menu^M^J
  39. i:\bin\send for help.^M^J
  40. i:\bin\send ^M^J
  41. pause
  42. goto Return
  43. :found
  44. del H:\%username%\foundwin.!@#
  45. :
  46. :SetEnDB
  47. :
  48. i:\bin\send Setting Environment for Dbank...^M^J
  49. addpath i:\dbank > NUL
  50. ECHO @I:\dbank\dbankq.bat >H:\%username%\$NNRESET.BAT
  51. @share /L:500 >NUL
  52. if not /%temp%==/ goto Gottemp
  53. set temp=C:\
  54. :
  55. :Gottemp
  56. :
  57. rem See if Windows already loaded:
  58. if exist H:\%username%\~loaded~.!@# del H:\%username%\~loaded~.!@#
  59. set|find "windir=">H:\%username%\~inwin!~.bat
  60. call H:\%username%\~inwin!~
  61. del H:\%username%\~inwin!~.bat
  62. if exist H:\%username%\~loaded~.!@# goto WinExist
  63. goto LoadWin
  64. :
  65. :WinExist
  66. :
  67. del H:\%username%\~loaded~.!@#
  68. I:\BIN\SEND ^M^J
  69. I:\BIN\SEND Windows was already running before you invoked Dbank.^M^J
  70. I:\BIN\SEND ^M^J
  71. I:\BIN\SEND If the message `SHARE already installed' appears above,^M^J
  72. I:\BIN\SEND please use Alt+Tab to get back to Microsoft Windows,^M^J
  73. I:\BIN\SEND then `Run...' I:\DBANK\DBANK from the `File' menu of Program Manager.^M^J
  74. I:\BIN\SEND ^M^J
  75. I:\BIN\SEND If that fails, or if the message above was merely `SHARE installed',^M^J
  76. I:\BIN\SEND please use Alt+Tab to get back to Microsoft Windows,^M^J
  77. I:\BIN\SEND then end your Windows session, and then `Dbank Access' from NUSNET again.^M^J
  78. I:\BIN\SEND ^M^J
  79. I:\BIN\SEND First press any key to return to NUSNET menu, then use Alt+Tab:^M^J
  80. pause>nul
  81. rem pause
  82. goto Return
  83. :
  84. :LoadWin
  85. :
  86. win i:\dbank\dbank.exe
  87. :
  88. :Return
  89. H:
  90. menu
  91.